unit uFormPrincipal;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus, Vcl.ExtCtrls, Vcl.ComCtrls,
  uFormCadProduto, Vcl.Imaging.pngimage, Vcl.Buttons, uFormConsOS,
  Vcl.Imaging.jpeg;

type
  TFormPrincipal = class(TForm)
    mmMenu: TMainMenu;
    Cad1: TMenuItem;
    Pessoas1: TMenuItem;
    Movimentao1: TMenuItem;
    mniPedido: TMenuItem;
    N1: TMenuItem;
    Sair1: TMenuItem;
    Ferramentas1: TMenuItem;
    pnlPrincipal: TPanel;
    stbRodape: TStatusBar;
    mniLocalidades: TMenuItem;
    mniUsuarios: TMenuItem;
    Produtos1: TMenuItem;
    mniCompra: TMenuItem;
    mniOrdemServico: TMenuItem;
    mniBancoDados: TMenuItem;
    mniConfiguracoes: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    mniComissaoVendedore: TMenuItem;
    mniAcertoVendedores: TMenuItem;
    Vendedores1: TMenuItem;
    mniIndustriaMarca: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    mniListadeprodutospendente: TMenuItem;
    N6: TMenuItem;
    mniRelatorios: TMenuItem;
    mniRelEstoqueProduto: TMenuItem;
    mniCadEmpresa: TMenuItem;
    N7: TMenuItem;
    mniParmetrosdosistema: TMenuItem;
    btnCadCliente: TSpeedButton;
    btnCadProduto: TSpeedButton;
    btnLancarPedido: TSpeedButton;
    btnListar: TSpeedButton;
    mniConsOS: TMenuItem;
    Img: TImage;
    procedure Sair1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure mniLocalidadesClick(Sender: TObject);
    procedure mniUsuariosClick(Sender: TObject);
    procedure Pessoas1Click(Sender: TObject);
    procedure Produtos1Click(Sender: TObject);
    procedure mniPedidoClick(Sender: TObject);
    procedure mniComissaoVendedoreClick(Sender: TObject);
    procedure mniIndustriaMarcaClick(Sender: TObject);
    procedure mniBancoDadosClick(Sender: TObject);
    procedure mniListadeprodutospendenteClick(Sender: TObject);
    procedure mniRelEstoqueProdutoClick(Sender: TObject);
    procedure mniCadEmpresaClick(Sender: TObject);
    procedure mniParmetrosdosistemaClick(Sender: TObject);
    procedure btnCadClienteClick(Sender: TObject);
    procedure btnCadProdutoClick(Sender: TObject);
    procedure btnLancarPedidoClick(Sender: TObject);
    procedure btnListarClick(Sender: TObject);
    procedure mniConsOSClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormPrincipal: TFormPrincipal;

implementation

{$R *.dfm}

uses uFormBaseCadastro, uFormLogin, uDM, uFormCadLocalidade, uFormCadUsuario,
  uFormCadPessoa, uFormPedido, uFormComissao, uFormCadIndustriaMarca,
  uFormConfigBancoDados, uFormConsListaProdutoPendente, uFormRelEstoqueProduto,
  uFormCadEmpresa, uFormParamSistema;

procedure TFormPrincipal.btnCadClienteClick(Sender: TObject);
begin
  CadPessoa;
end;

procedure TFormPrincipal.btnCadProdutoClick(Sender: TObject);
begin
  CadProduto;
end;

procedure TFormPrincipal.btnLancarPedidoClick(Sender: TObject);
begin
  Pedido;
end;

procedure TFormPrincipal.btnListarClick(Sender: TObject);
begin
  ListaProdutoPendente;
end;

procedure TFormPrincipal.FormShow(Sender: TObject);
begin
  FormLogin := TFormLogin.Create(Self);
  try
    if formLogin.ShowModal <> mrOk then
      Application.Terminate
    else
    begin
      DM.ReadFormsAndCreateGrants;
      stbRodape.Panels[0].Text := AnsiUpperCase(DM.FUserName);
    end;
  finally
    FreeAndNil(FormLogin);
  end;
end;

procedure TFormPrincipal.mniBancoDadosClick(Sender: TObject);
begin
  ConfigurarBancoDados;
end;

procedure TFormPrincipal.mniCadEmpresaClick(Sender: TObject);
begin
  CadEmpresa;
end;

procedure TFormPrincipal.mniComissaoVendedoreClick(Sender: TObject);
begin
  ComissaoVendedores;
end;

procedure TFormPrincipal.mniConsOSClick(Sender: TObject);
begin
  ConsOS;
end;

procedure TFormPrincipal.mniIndustriaMarcaClick(Sender: TObject);
begin
  CadIndustriaMarca;
end;

procedure TFormPrincipal.mniListadeprodutospendenteClick(Sender: TObject);
begin
  ListaProdutoPendente;
end;

procedure TFormPrincipal.mniLocalidadesClick(Sender: TObject);
begin
  CadLocalidade;
end;

procedure TFormPrincipal.mniParmetrosdosistemaClick(Sender: TObject);
begin
  ParamSistema;
end;

procedure TFormPrincipal.mniPedidoClick(Sender: TObject);
begin
  Pedido;
end;

procedure TFormPrincipal.mniRelEstoqueProdutoClick(Sender: TObject);
begin
  RelEstoqueProduto;
end;

procedure TFormPrincipal.mniUsuariosClick(Sender: TObject);
begin
  CadUsuario;
end;

procedure TFormPrincipal.Pessoas1Click(Sender: TObject);
begin
  CadPessoa;
end;

procedure TFormPrincipal.Produtos1Click(Sender: TObject);
begin
  CadProduto;
end;

procedure TFormPrincipal.Sair1Click(Sender: TObject);
begin
  Close;
end;

end.
